
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tCursos_Deseados_x_Persona



# Region "tCursos"

		private mtCursos As New tCursos

		Public Property tCursos As tCursos
        Get
                mtCursos = mtCursos.TraerFiltradoListOf("IdCurso", Me.IdCurso).Item(0)
        Return mtCursos
        End Get
        Set
             If ((mtCursos Is Nothing) Or (Me.tCursos.Equals(value) = False)) Then
                If Not (Me.tCursos Is Nothing)
	               Dim oldtCursos As tCursos = Me.tCursos
                   Me.mtCursos = Nothing
                   oldtCursos.RemoveListatCursos_Deseados_x_Persona(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtCursos = value
                   Me.tCursos.AddListatCursos_Deseados_x_Persona(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tPersonas"

		private mtPersonas As New tPersonas

		Public Property tPersonas As tPersonas
        Get
                mtPersonas = mtPersonas.TraerFiltradoListOf("IdPersona", Me.IdPersona).Item(0)
        Return mtPersonas
        End Get
        Set
             If ((mtPersonas Is Nothing) Or (Me.tPersonas.Equals(value) = False)) Then
                If Not (Me.tPersonas Is Nothing)
	               Dim oldtPersonas As tPersonas = Me.tPersonas
                   Me.mtPersonas = Nothing
                   oldtPersonas.RemoveListatCursos_Deseados_x_Persona(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtPersonas = value
                   Me.tPersonas.AddListatCursos_Deseados_x_Persona(Me)
            	End If
             End If
        End Set
       End Property

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tCursos_Deseados_x_Persona)
            Dim dtDatos As DataTable
            Dim listatCursos_Deseados_x_Persona As New List(Of tCursos_Deseados_x_Persona)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCursos_Deseados_x_Persona As New tCursos_Deseados_x_Persona
				mtCursos_Deseados_x_Persona.IdCurso = CType(dr.Item("IdCurso"),Integer)
				mtCursos_Deseados_x_Persona.IdPersona = CType(dr.Item("IdPersona"),Integer)
				mtCursos_Deseados_x_Persona.Traer_objeto()
            	listatCursos_Deseados_x_Persona.Add( mtCursos_Deseados_x_Persona)
    		Next dr
Return listatCursos_Deseados_x_Persona
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tCursos_Deseados_x_Persona)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatCursos_Deseados_x_Persona As New List(Of tCursos_Deseados_x_Persona)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCursos_Deseados_x_Persona As New tCursos_Deseados_x_Persona
				mtCursos_Deseados_x_Persona.IdCurso = CType(dr.Item("IdCurso"),Integer)
				mtCursos_Deseados_x_Persona.IdPersona = CType(dr.Item("IdPersona"),Integer)
				mtCursos_Deseados_x_Persona.Traer_objeto()
            	listatCursos_Deseados_x_Persona.Add( mtCursos_Deseados_x_Persona)
    		Next dr
Return listatCursos_Deseados_x_Persona
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tCursos_Deseados_x_Persona)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatCursos_Deseados_x_Persona As New List(Of tCursos_Deseados_x_Persona)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCursos_Deseados_x_Persona As New tCursos_Deseados_x_Persona
				mtCursos_Deseados_x_Persona.IdCurso = CType(dr.Item("IdCurso"),Integer)
				mtCursos_Deseados_x_Persona.IdPersona = CType(dr.Item("IdPersona"),Integer)
				mtCursos_Deseados_x_Persona.Traer_objeto()
            	listatCursos_Deseados_x_Persona.Add( mtCursos_Deseados_x_Persona)
    		Next dr
Return listatCursos_Deseados_x_Persona
End Function
# End Region

End Class
End Namespace
